(rmail-edit-diff-headers): Delete spurious reference to OLD.

diff --git a/lisp/mail/rmailedit.el b/lisp/mail/rmailedit.el
index 40d5f02489497b7dac273a3cfb5b1eb00eb89daa..826e5da06e3a8835ab45f66149ef7dca12e9ac46 100644 (file)
--- a/lisp/mail/rmailedit.el
+++ b/lisp/mail/rmailedit.el
@@ -284,9 +284,9 @@ where OLD is a element of OLD-HEADERS and NEW is an element of NEW-HEADERS."
     ;; Look at the new headers with no old counterpart.
     (dolist (new new-headers)
       (let ((prev (cadr (member new reverse-new))))
-       ;; Mark each one as an insertion.  Show the previous new header.
-       (unless old
-         (push (list prev new) inserted))))
+       ;; Mark each one as an insertion.
+       ;; Record the previous new header, to insert it after that.
+       (push (list prev new) inserted)))
     ;; It is crucial to return the insertions in buffer order
     ;; so that `rmail-edit-update-headers' can insert a field
     ;; after a new field.